home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / macscripts / sendps < prev   
Encoding:
Text File  |  1993-10-23  |  297 b   |  21 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit
  3. #!/usr/local/bin/perl
  4.  
  5. $| = 1;
  6.  
  7. open(PRINTER, "+>Dev:Printer") || die "couldn't open connection to laserwriter";
  8.  
  9. select((select(PRINTER), $|=1, $/="\012")[0]);
  10.  
  11. while (<>) {
  12.     print PRINTER;
  13. }
  14.  
  15. shutdown(PRINTER,1);
  16.  
  17. while (<PRINTER>) {
  18.     s/\012/\015/g;
  19.     print;
  20. }
  21.